10 REM  ** VISITENKARTEN **
20 REM  * SPECIAL VERSION *
30 :
40 REM  (W) 10/1992 THOMAS KNEISSLER
50 :
60 CLR
70 POKE 53280,15:POKE 53281,15:POKE 646,0
80 PRINT CHR$(147);CHR$(14);
90 PRINT TAB(9)"*** [214][201][211][201][212][197][206][203][193][210][212][197][206] ***"
100 PRINT TAB(9)"** [211]PECIAL [214]ERSION **"
110 PRINT:PRINT"... DRUCKT [214]ISITENKARTEN MIT [200]IRES-"
120 PRINT"ODER [203]OALABILDERN IM [194]RIEFMARKENFORMAT."
130 PRINT"[206]ACHDEM DIE EIGENTLICHE [203]ARTE AUF DAS"
140 PRINT"[197]INZELBLATT GEDRUCKT WURDE, ZIEHT DER"
150 PRINT"[196]RUCKER ES AUF DIE RICHTIGE [208]OSITION"
160 PRINT"ZURUECK. [205]AN DRUECKT EINE [212]ASTE, UND"
170 PRINT"DAS [200]ARDCOPYPROGRAMM WIRD GELADEN. [206]UN"
180 PRINT"LAEDT MAN DAS [194]ILD, WAEHLT IM [205]ENUE DIE"
190 PRINT"[197]INSTELLUNG '[205]ICROHARDCOPY' UND LAESST"
200 PRINT"DAS [194]ILD AUSDRUCKEN. [198]ERTIG IST DIE [214]I-"
210 PRINT"SITENKARTE MIT DER GANZ PERSOENLICHEN"
220 PRINT"[206]OTE!"
230 PRINT:PRINT:PRINT:INPUT"[214]OR- U. [206]ACHNAME";B$
240 INPUT"[211]TRASSE/[206]R.";C$
250 INPUT"[208][204][218]/[215]OHNORT";D$
260 INPUT"[212]EL.NUMMER";E$
270 :
280 OPEN 1,4,2
290 PRINT#1,CHR$(27);"@";:REM RESET
300 PRINT#1,CHR$(27);"L";CHR$(3);:REM LINKER RAND
310 PRINT#1,CHR$(27);"[205]";:REM ELITE EIN
320 PRINT#1,CHR$(27);"X1";:REM NLQ EIN
330 PRINT#1,CHR$(27);"K";CHR$(0);:REM NLQ COURIER
340 :
350 PRINT#1,"+  -  -  -  -  -  -  -  -  -  -  -  -  -  - +";
360 PRINT#1," -  -  -  -  -  -  -  -  -  -  -  -  -  -  +"
370 PRINT#1
380 PRINT#1
390 PRINT#1,TAB(20);:FOR N=1 TO 11:PRINT#1," ";CHR$(6);:NEXT:PRINT#1
400 PRINT#1,TAB(((24-LEN(B$))/2)+20);B$
410 PRINT#1,TAB(20);:FOR N=1 TO 11:PRINT#1," ";CHR$(6);:NEXT:PRINT#1
420 PRINT#1,
430 PRINT#1,TAB(20)"------------------------"
440 PRINT#1,
450 PRINT#1,CHR$(27);"[211]";CHR$(0);:REM SUPERSCRIPT EIN
460 PRINT#1,TAB(4);D$
470 PRINT#1,TAB(4);C$
480 PRINT#1,TAB(4)"[212]EL.: ";E$
490 PRINT#1,CHR$(27);"[212]";:REM SUPERSCRIPT AUS
500 PRINT#1,"+  -  -  -  -  -  -  -  -  -  -  -  -  -  - +";
510 PRINT#1," -  -  -  -  -  -  -  -  -  -  -  -  -  -  +"
520 PRINT#1,CHR$(27);"L";CHR$(6):REM LINKER RAND
530 FOR N=1 TO 6:PRINT#1,CHR$(27);"J";CHR$(100);:NEXT
540 PRINT#1,CHR$(27);"J";CHR$(30);
550 CLOSE 1
560 :
570 PRINT:PRINT:PRINT"[202]ETZT WIRD '[205][213][204][212][201]-[200][193][210][196][195][207][208][217] 2'"
580 PRINT"GELADEN."
590 PRINT:PRINT"  [196]RUECKE EINE [212]ASTE!"
600 GET X$:IF X$="" THEN 600
610 LOAD"MULTI-HARDCOPY 2",8